perm filename ROAD1.SAI[1,BGB] blob sn#001271 filedate 1972-10-22 generic text, type T, neo UTF8
00100	BEGIN	"ROAD1"
00200		PRELOAD_WITH
00300			0,0,		-23,0,		-10,24,		-35,24,
00400			313,0,		0,-313,		-10,-313,	-337,24,
00500			-35,336,	-23,336;
00600		REAL ARRAY PXY[1:10,1:2];
00700		PRELOAD_WITH
00800			0,	432.9,
00900			100,	440.45,
01000			200,	448.00,
01100			300,	437.81,
01200		
01300			410,	426.60,
01400			460,	421.50,
01500			510,	420.91,
01600		
01700			665,	419.09,
01800			715,	418.50,
01900			765,	415.41,
02000		
02100			850,	410.17,
02200			950,	404.00,
02300			1050,	412.57,
02400		
02500			1340,	437.43,
02600			1440,	446.00,
02700			1540,	440.22,
02800		
02900			1790,	425.78,
03000			1890,	420.00,
03100			1990,	427.55,
03200			2060.893,432.9;
03300		REAL ARRAY PLZ [1:20,1:2];
03400		PRELOAD_WITH	5,
03500			'06000001,
03600			'07000000,
03700			'10000003,
03800			'11000004,
03900			'12000000,
04000			'05000002;
04100		INTEGER ARRAY ARCSEG [0:6];
04200		OPEN(1,"DSK",8,0,3,0,0,0);
04300		ENTER(1,"ROAD1.MAP",0);
04400		WORDOUT(1,10);
04500		WORDOUT(1,20);
04600		WORDOUT(1,6);
04700		ARRYOUT(1,PXY[1,1],2*10);
04800		ARRYOUT(1,PLZ[1,1],2*20);
04900		ARRYOUT(1,ARCSEG[0], 7 );
05000		RELEASE(1);
05100	END;